home *** CD-ROM | disk | FTP | other *** search
Wrap
Global Const AppName = "NONREV" Global Const IniName = "NONREV.INI" Global Const inilen = 60 Global Const MAXFLIGHT = 24 ''''' Structures '''''''''''''''''' ''''' info on each flight that we want to glean from mainframe Type FlightInfo flightnumber As Integer departing As Integer arriving As Integer equipment As String booked As Single 'total percentage fbooked As Single '1st class percentage meal As String stops As Integer '0 = non-stop End Type ''''' NOTE: following is # of above items Global Const NUMBEROFITEMS = 8 'number of flight items to display per flight ''''' position on form where above info gets plastered Type InfoPos Top As Integer Left As Integer Bottom As Integer Right As Integer End Type Global Flight(MAXFLIGHT) As FlightInfo Global Cell(MAXFLIGHT) As InfoPos ''''' Airport list stuff ''''''''''''''''''''''''''''''''' Global CityFile As String 'list of airports Global DefAirportCode As String 'FAA airport code Global DefDepartIndex As Integer, DefArriveIndex As Integer Global SourceAirport As String, SourceCity As String Global DestAirport As String, DestCity As String Global FlagGoingTo As Integer ''''' Calendar stuff ''''''''''''''''''''''''''''''''''' Global ToDay As Integer Global TempbColor As Long Global TempfColor As Long Global LastClick As Integer 'Global Datesel As String * 50 Global DayToSelect As Integer Global MonthValue As Integer, CurrentMonth As Integer, CurrentYear As Integer, YearValue As Integer Global LastClickDate As Integer Global Todayed As Integer Global Init As Integer Global DaysInMonth(13) As Integer Global Const MonthString = "January February March April May June July August SeptemberOctober November December " Global Const MnthString = "JanFebMarAprMayJunJulAugSepOctNovDec" ''''' User stuff ''''''''''''''''''''''''''''''''''''''' Global LastName As String Global FirstName As String Global Senority As String, Classification As String Global Sess As String Global LastDestination As String ''''' other stuff ''''''''''''''''''''''''''''''''''''''' Global TotalFlights As Integer 'total flights actually available on a day ''''' Booleans ''''''''''''''''''''''''''''''''''' Global Const MODAL = 1 Global Const DEBUGON = False ''''' Windows Functions '''''''''''''''''''''''''''' Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer ''''' CONSTANT.TXT ''''''''''''''''''''''''''''''''' '==================' ' ' ' Event parameters ' ' ' '==================' ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp) Global Const SHIFT_MASK = 1 Global Const CTRL_MASK = 2 Global Const ALT_MASK = 4 Global Const LEFT_BUTTON = 1 Global Const RIGHT_BUTTON = 2 Global Const MIDDLE_BUTTON = 4 ' ErrNum (LinkError) Global Const WRONG_FORMAT = 1 Global Const REQUEST_WITHOUT_INIT = 2 Global Const DDE_WITHOUT_INIT = 3 Global Const ADVISE_WITHOUT_INIT = 4 Global Const POKE_WITHOUT_INIT = 5 Global Const DDE_SERVER_CLOSED = 6 Global Const TOO_MANY_LINKS = 7 Global Const STRING_TOO_LONG = 8 Global Const INVALID_CONTROL_ARRAY_REFERENCE = 9 Global Const UNEXPECTED_DDE = 10 Global Const OUT_OF_MEMORY = 11 Global Const SERVER_ATTEMPTED_CLIENT_OPERATION = 12 ' KeyCode (KeyDown, KeyUp) Global Const KEY_LBUTTON = &H1 Global Const KEY_RBUTTON = &H2 Global Const KEY_CANCEL = &H3 Global Const KEY_MBUTTON = &H4 ' NOT contiguous with L & R BUTTON Global Const KEY_BACK = &H8 Global Const KEY_TAB = &H9 Global Const KEY_CLEAR = &HC Global Const KEY_RETURN = &HD Global Const KEY_SHIFT = &H10 Global Const KEY_CONTROL = &H11 Global Const KEY_MENU = &H12 Global Const KEY_PAUSE = &H13 Global Const KEY_CAPITAL = &H14 Global Const KEY_ESCAPE = &H1B Global Const KEY_SPACE = &H20 Global Const KEY_PRIOR = &H21 Global Const KEY_NEXT = &H22 Global Const KEY_END = &H23 Global Const KEY_HOME = &H24 Global Const KEY_LEFT = &H25 Global Const KEY_UP = &H26 Global Const KEY_RIGHT = &H27 Global Const KEY_DOWN = &H28 Global Const KEY_SELECT = &H29 Global Const KEY_PRINT = &H2A Global Const KEY_EXECUTE = &H2B Global Const KEY_SNAPSHOT = &H2C Global Const KEY_INSERT = &H2D Global Const KEY_DELETE = &H2E Global Const KEY_HELP = &H2F ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z' ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9' Global Const KEY_NUMPAD0 = &H60 Global Const KEY_NUMPAD1 = &H61 Global Const KEY_NUMPAD2 = &H62 Global Const KEY_NUMPAD3 = &H63 Global Const KEY_NUMPAD4 = &H64 Global Const KEY_NUMPAD5 = &H65 Global Const KEY_NUMPAD6 = &H66 Global Const KEY_NUMPAD7 = &H67 Global Const KEY_NUMPAD8 = &H68 Global Const KEY_NUMPAD9 = &H69 Global Const KEY_MULTIPLY = &H6A Global Const KEY_ADD = &H6B Global Const KEY_SEPARATOR = &H6C Global Const KEY_SUBTRACT = &H6D Global Const KEY_DECIMAL = &H6E Global Const KEY_DIVIDE = &H6F Global Const KEY_F1 = &H70 Global Const KEY_F2 = &H71 Global Const KEY_F3 = &H72 Global Const KEY_F4 = &H73 Global Const KEY_F5 = &H74 Global Const KEY_F6 = &H75 Global Const KEY_F7 = &H76 Global Const KEY_F8 = &H77 Global Const KEY_F9 = &H78 Global Const KEY_F10 = &H79 Global Const KEY_F11 = &H7A Global Const KEY_F12 = &H7B Global Const KEY_F13 = &H7C Global Const KEY_F14 = &H7D Global Const KEY_F15 = &H7E Global Const KEY_F16 = &H7F Global Const KEY_NUMLOCK = &H90 ' State (DragOver) Global Const ENTER = 0 Global Const LEAVE = 1 Global Const OVER = 2 '=====================' ' ' ' Function parameters ' ' ' '=====================' ' MsgBox parameters Global Const MB_OK = 0 ' OK button only Global Const MB_OKCANCEL = 1 ' OK and Cancel buttons Global Const MB_ABORTRETRYIGNORE = 2 ' Abort, Retry, and Ignore buttons Global Const MB_YESNOCANCEL = 3 ' Yes, No, and Cancel buttons Global Const MB_YESNO = 4 ' Yes and No buttons Global Const MB_RETRYCANCEL = 5 ' Retry and Cancel buttons Global Const MB_ICONSTOP = 16 ' Critical message Global Const MB_ICONQUESTION = 32 ' Warning query Global Const MB_ICONEXCLAMATION = 48 ' Warning message Global Const MB_ICONINFORMATION = 64 ' Information message Global Const MB_DEFBUTTON1 = 0 ' First button is default Global Const MB_DEFBUTTON2 = 256 ' Second button is default Global Const MB_DEFBUTTON3 = 512 ' Third button is default ' MsgBox return values Global Const IDOK = 1 ' OK button pressed Global Const IDCANCEL = 2 ' Cancel button pressed Global Const IDABORT = 3 ' Abort button pressed Global Const IDRETRY = 4 ' Retry button pressed Global Const IDIGNORE = 5 ' Ignore button pressed Global Const IDYES = 6 ' Yes button pressed Global Const IDNO = 7 ' No button pressed '===================' ' ' ' Method parameters ' ' ' '===================' ' Drag (controls) Global Const CANCEL = 0 Global Const BEGIN_DRAG = 1 Global Const END_DRAG = 2 ' GetData, GetFormat, SetData (Clipboard) Global Const CF_LINK = &HBF00 Global Const CF_TEXT = 1 Global Const CF_BITMAP = 2 Global Const CF_METAFILE = 3 Global Const CF_DIB = 8 ' Show (form) 'Global Const MODAL = 1 Global Const MODELESS = 0 '=================' ' ' ' Property values ' ' ' '=================' ' Alignment (label) Global Const LEFT_JUSTIFY = 0 ' 0 - Left Justify Global Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify Global Const CENTER = 2 ' 2 - Center ' BackColor, ForeColor, FillColor (system colors: form, controls) Global Const SCROLL_BARS = &H80000000 ' Scroll-bars gray area. Global Const DESKTOP = &H80000001 ' Desktop. Global Const ACTIVE_TITLE_BAR = &H80000002 ' Active window caption. Global Const INACTIVE_TITLE_BAR = &H80000003 ' Inactive window caption. Global Const MENU_BAR = &H80000004 ' Menu background. Global Const WINDOW_BACKGROUND = &H80000005 ' Window background. Global Const WINDOW_FRAME = &H80000006 ' Window frame. Global Const MENU_TEXT = &H80000007 ' Text in menus. Global Const WINDOW_TEXT = &H80000008 ' Text in windows. Global Const TITLE_BAR_TEXT = &H80000009 ' Text in caption, size box, scroll-bar arrow box.. Global Const ACTIVE_BORDER = &H8000000A ' Active window border. Global Const INACTIVE_BORDER = &H8000000B ' Inactive window border. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications. Global Const HIGHLIGHT = &H8000000D ' Items selected item in a control. Global Const HIGHLIGHT_TEXT = &H8000000E ' Text of item selected in a control. Global Const BUTTON_FACE = &H8000000F ' Face shading on command buttons. Global Const BUTTON_SHADOW = &H80000010 ' Edge shading on command buttons. Global Const GRAY_TEXT = &H80000011 ' Grayed (disabled) text. This color is set to 0 if the current display driver does not support a solid gray color. Global Const BUTTON_TEXT = &H80000012 ' Text on push buttons. ' BorderStyle (form, label, picture box, text box) Global Const NONE = 0 ' 0 - None Global Const FIXED_SINGLE = 1 ' 1 - Fixed Single Global Const SIZABLE = 2 ' 2 - Sizable (Forms only) Global Const FIXED_DOUBLE = 3 ' 3 - Fixed Double (Forms only) ' DragMode (controls) Global Const MANUAL = 0 ' 0 - Manual Global Const AUTOMATIC = 1 ' 1 - Automatic ' DrawMode (form, picture box, Printer) Global Const BLACKNESS = 1 ' 1 - Blackness Global Const NOT_MERGE_PEN = 2 ' 2 - Not Merge Pen Global Const MASK_NOT_PEN = 3 ' 3 - Mask Not Pen Global Const NOT_COPY_PEN = 4 ' 4 - Not Copy Pen Global Const MASK_PEN_NOT = 5 ' 5 - Mask Pen Not Global Const INVERT = 6 ' 6 - Invert Global Const XOR_PEN = 7 ' 7 - Xor Pen Global Const NOT_MASK_PEN = 8 ' 8 - Not Mask Pen Global Const MASK_PEN = 9 ' 9 - Mask Pen Global Const NOT_XOR_PEN = 10 ' 10 - Not Xor Pen Global Const NOP = 11 ' 11 - Nop Global Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen Global Const COPY_PEN = 13 ' 13 - Copy Pen Global Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not Global Const MERGE_PEN = 15 ' 15 - Merge Pen Global Const WHITENESS = 16 ' 16 - Whiteness ' DrawStyle (form, picture box, Printer) Global Const SOLID = 0 ' 0 - Solid Global Const DASH = 1 ' 1 - Dash Global Const DOT = 2 ' 2 - Dot Global Const DASH_DOT = 3 ' 3 - Dash-Dot Global Const DASH_DOT_DOT = 4 ' 4 - Dash-Dot-Dot Global Const INVISIBLE = 5 ' 5 - Invisible Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid ' FillStyle (form, picture box, Printer) ' Global Const SOLID = 0 ' 0 - Solid Global Const TRANSPARENT = 1 ' 1 - Transparent Global Const HORIZONTAL_LINE = 2 ' 2 - Horizontal Line Global Const VERTICAL_LINE = 3 ' 3 - Vertical Line Global Const UPWARD_DIAGONAL = 4 ' 4 - Upward Diagonal Global Const DOWNWARD_DIAGONAL = 5 ' 5 - Downward Diagonal Global Const CROSS = 6 ' 6 - Cross Global Const DIAGONAL_CROSS = 7 ' 7 - Diagonal Cross ' LinkMode (controls) ' Global Const NONE = 0 ' 0 - None Global Const HOT = 1 ' 1 - Hot Global Const COLD = 2 ' 2 - Cold ' LinkMode (form) ' Global Const NONE = 0 ' 0 - None Global Const SERVER = 1 ' 1 - Server ' MousePointer (form, controls) Global Const DEFAULT = 0 ' 0 - Default Global Const ARROW = 1 ' 1 - Arrow Global Const CROSSHAIR = 2 ' 2 - Cross Global Const IBEAM = 3 ' 3 - I-Beam Global Const ICON_POINTER = 4 ' 4 - Icon Global Const SIZE_POINTER = 5 ' 5 - Size Global Const SIZE_NE_SW = 6 ' 6 - Size NE SW Global Const SIZE_N_S = 7 ' 7 - Size N S Global Const SIZE_NW_SE = 8 ' 8 - Size NW SE Global Const SIZE_W_E = 9 ' 9 - Size W E Global Const UP_ARROW = 10 ' 10 - Up Arrow Global Const HOURGLASS = 11 ' 11 - Hourglass Global Const NO_DROP = 12 ' 12 - No drop ' ScaleMode (form, picture box, Printer) Global Const USER = 0 ' 0 - User Global Const TWIPS = 1 ' 1 - Twip Global Const POINTS = 2 ' 2 - Point Global Const PIXELS = 3 ' 3 - Pixel Global Const CHARACTERS = 4 ' 4 - Character Global Const INCHES = 5 ' 5 - Inch Global Const MILLIMETERS = 6 ' 6 - Millimeter Global Const CENTIMETERS = 7 ' 7 - Centimeter ' ScrollBar (text box) ' Global Const NONE = 0 ' 0 - None Global Const HORIZONTAL = 1 ' 1 - Horizontal Global Const VERTICAL = 2 ' 2 - Vertical Global Const BOTH = 3 ' 3 - Both ' Value (check box) Global Const UNCHECKED = 0 ' 0 - Unchecked Global Const CHECKED = 1 ' 1 - Checked Global Const GRAYED = 2 ' 2 - Grayed ' WindowState (form) Global Const NORMAL = 0 ' 0 - Normal Global Const MINIMIZED = 1 ' 1 - Minimized Global Const MAXIMIZED = 2 ' 2 - Maximized